home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 045.dms / 045.adf / str / STR6 < prev    next >
Text File  |  1989-08-17  |  291b  |  1 lines

  1.  L R8= 1;J S; W:I RZ& 2J S;P;J W;S:L R8=R8+1;P;I R8=1 J A;I R8=2 J B;I R8=3 J C;L R8=0 J D;A: P; A 1,(2,1)(3,1)(4,1)(5,1);P;P;P;L RZ=0;J W;B: P; A 1,(6,1)(7,1)(8,1)(9,1);P;P;P;L RZ=0;J W;C: P; A 1,(10,1)(11,1)(12,1)(13,1);P;P;P;L RZ=0;J W;D: P; A 1,(14,1)(15,1)(16,1)(1,1);P;P;P;L RZ=0;J W;?